home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Almathera Ten Pack 2: CDPD 1
/
Almathera Ten on Ten - Disc 2: CDPD 1.iso
/
pd
/
301-325
/
325
/
farprint
/
farcom2.asm
< prev
next >
Wrap
Assembly Source File
|
1995-03-14
|
438b
|
38 lines
SECTION CODE
XREF _AddText
_LVORawDoFmt EQU $FFFFFDF6
XDEF kput1
kput1: MOVE.B D0,(A3)+
RTS
XDEF _SendText
_SendText: LINK A5,#-512
MOVEM.L D1/A0-A3,-(SP)
MOVEA.L 8(A5),A0
LEA 12(A5),A1
LEA kput1(PC),A2
LEA -512(A5),A3
MOVE.L 4,A6
JSR _LVORawDoFmt(A6)
LEA -512(A5),A0
MOVE.L A5,-(SP)
MOVE.L A0,-(SP)
JSR _AddText
ADD.W #4,SP
MOVE.L (SP)+,A5
MOVEM.L (SP)+,D1/A0-A3
UNLK A5
RTS
END